home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
VIKINGW.DIR
/
01643_Script_Food
< prev
next >
Wrap
Text File
|
1995-09-12
|
13KB
|
403 lines
global gbeenclicked, gQuest
on VFood1Rollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
set the locH of sprite 18 to 293
set the locV of sprite 18 to 373
updatestage
end repeat
set the locH of sprite 18 to 993
updatestage
else
if rollover(7) then
repeat while rollover(7)
VikingCursor
puppetsprite 22, true
set the locH of sprite 22 to 406
set the locV of sprite 22 to 189
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateToSlowPauseFrom 7, 199, 1, "SV180500.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 22 to 906
puppetsprite 22, false
updatestage
else
if rollover(8) then
repeat while rollover(8)
VikingCursor
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateLoopToFroSlow 8, 201, 3, "SV180701.AIF", 2
end repeat
end if
end if
end repeat
else
if rollover(9) then
VikingCursor
repeat while rollover(9)
VikingCursor
puppetsprite 16, true
set the locH of sprite 16 to 451
set the locV of sprite 16 to 242
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateToSlowPauseFrom 9, 205, 1, "SV180900.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 16 to 951
puppetsprite 16, false
updatestage
else
if rollover(10) then
VikingCursor
repeat while rollover(10)
puppetsprite 17, true
set the locH of sprite 17 to 236
set the locV of sprite 17 to 392
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateToSlowPauseFrom 10, 207, 1, "SV181000.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 17 to 936
puppetsprite 17, false
updatestage
else
if rollover(11) then
VikingCursor
repeat while rollover(11)
puppetsprite 13, true
set the locH of sprite 13 to 420
set the locV of sprite 13 to 320
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
AnimateToSlowPauseFrom 11, 195, 3, "SV180400.AIF", 1
end repeat
end if
end if
end repeat
set the locH of sprite 13 to 920
puppetsprite 13, false
updatestage
else
if rollover(19) then
ArrowCursor
repeat while rollover(19)
set the locH of sprite 14 to 303
set the locV of sprite 14 to 290
updatestage
end repeat
set the locH of sprite 14 to 903
updatestage
else
if rollover(20) then
ArrowCursor
repeat while rollover(20)
set the locH of sprite 15 to 453
set the locV of sprite 15 to 376
updatestage
end repeat
set the locH of sprite 15 to 953
updatestage
else
if rollover(21) then
ArrowCursor
repeat while rollover(21)
set the locH of sprite 12 to 237
set the locV of sprite 12 to 340
updatestage
end repeat
set the locH of sprite 12 to 937
updatestage
else
if rollover(27) then
ArrowCursor
repeat while rollover(27)
set the locH of sprite 26 to 455
set the locV of sprite 26 to 123
updatestage
end repeat
set the locH of sprite 26 to 955
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on VFood2Rollovers
set gbeenclicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(13) then
VikingCursor
repeat while rollover(13)
puppetsprite 17, true
set the locH of sprite 17 to 478
set the locV of sprite 17 to 381
updatestage
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
Flint 14, 254, 2, "SV181300.AIF", 3
end repeat
end if
end if
end repeat
set the locH of sprite 17 to 978
puppetsprite 17, false
updatestage
else
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 9 to 407
set the locV of sprite 9 to 184
updatestage
end repeat
set the locH of sprite 9 to 906
updatestage
else
if rollover(11) then
ArrowCursor
repeat while rollover(11)
set the locH of sprite 18 to 233
set the locV of sprite 18 to 345
updatestage
end repeat
set the locH of sprite 18 to 933
updatestage
else
if rollover(10) then
ArrowCursor
repeat while rollover(10)
set the locH of sprite 8 to 380
set the locV of sprite 8 to 140
updatestage
end repeat
set the locH of sprite 8 to 880
updatestage
else
if rollover(15) then
VikingCursor
repeat while rollover(15)
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
Burp
end repeat
end if
end if
end repeat
else
if rollover(7) then
VikingCursor
repeat while rollover(7)
if (the mousedown) then
set gbeenclicked = 1
else
--the mouse is up
if gbeenclicked = 1 then
repeat while gbeenclicked = 1
PourWater 7, 249, 4, "SV181206.AIF", 1
end repeat
end if
end if
end repeat
else
if rollover(20) then
ArrowCursor
repeat while rollover(20)
set the locH of sprite 19 to 397
set the locV of sprite 19 to 187
updatestage
end repeat
set the locH of sprite 19 to 997
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on Flint whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
ArrowCursor
set gSprite = whichsprite
set gCast = whichCast
set the castNum of sprite gSprite = gCast
set RunThruCount = 0
repeat while RunThruCount < HowManyTimes and (the MouseUp)
set count = 0
repeat while count < HowManyCast and (the MouseUp)
if the castNum of sprite gSprite = gCast then
set the castNum of sprite gSprite = gCast + 1
updatestage
wait .2
else
puppetsound whichsound
set the castNum of sprite gSprite = gCast
updatestage
wait 1
end if
set count = count + 1
end repeat
if the mousedown then
exit repeat
end if
set the castnum of sprite gSprite = gCast
updatestage
set RunThruCount = RunThruCount + 1
end repeat
set the castnum of sprite gSprite = gCast
updatestage
Puppetsound 0
set gbeenclicked = 0
end
on Burp
ArrowCursor
puppetsprite 8, true
puppetsound "SV181205.AIF"
set the locH of sprite 15 to -243
updatestage
wait 1
set the locH of sprite 15 to 243
set the locV of sprite 15 to 251
updatestage
puppetsound "SV181200.AIF"
set gbeenclicked = 0
end
on PourWater whichsprite, whichCast, HowManyCast, whichsound, HowManyTimes
ArrowCursor
puppetsound whichsound
set gSprite = whichsprite
set gCast = whichCast
set gEndCast = whichCast + (HowManyCast - 1)
set the castNum of sprite gSprite = gCast
set RunThruCount = 0
repeat while RunThruCount < HowManyTimes and (the MouseUp)
set count = 0
repeat while count < HowManyCast and (the MouseUp)
set theCast = the castNum of sprite gSprite
if thecast < gendcast then
set the castNum of sprite gSprite = theCast + 1
updatestage
wait .3
end if
set count = count + 1
end repeat
set count = 0
wait .2
repeat while count < HowManyCast and (the MouseUp)
set theCast = the castNum of sprite gSprite
if thecast > gcast then
set the castNum of sprite gSprite = theCast - 1
updatestage
wait .2
end if
set count = count + 1
end repeat
if the mousedown then
exit repeat
end if
set the castnum of sprite whichsprite = gCast
updatestage
set RunThruCount = RunThruCount + 1
end repeat
set the castnum of sprite whichsprite = gCast
updatestage
Puppetsound 0
set gbeenclicked = 0
end
